home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / veryea1a / form1.frm < prev    next >
Text File  |  1999-10-06  |  18KB  |  560 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  5. Begin VB.Form Form1 
  6.    Caption         =   "Easy Writer"
  7.    ClientHeight    =   10410
  8.    ClientLeft      =   2010
  9.    ClientTop       =   630
  10.    ClientWidth     =   10995
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   10410
  13.    ScaleWidth      =   10995
  14.    Begin VB.CommandButton Command10 
  15.       BackColor       =   &H00FFFFFF&
  16.       Caption         =   "Exit"
  17.       BeginProperty Font 
  18.          Name            =   "Arial"
  19.          Size            =   12
  20.          Charset         =   0
  21.          Weight          =   700
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   375
  27.       Left            =   2880
  28.       Style           =   1  'Grafisch
  29.       TabIndex        =   13
  30.       Top             =   600
  31.       Width           =   1095
  32.    End
  33.    Begin VB.CommandButton Command9 
  34.       BackColor       =   &H00FFFFFF&
  35.       Caption         =   "New"
  36.       BeginProperty Font 
  37.          Name            =   "Arial"
  38.          Size            =   12
  39.          Charset         =   0
  40.          Weight          =   700
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       Height          =   375
  46.       Left            =   2880
  47.       Style           =   1  'Grafisch
  48.       TabIndex        =   12
  49.       Top             =   120
  50.       Width           =   1095
  51.    End
  52.    Begin MSComDlg.CommonDialog CommonDialog1 
  53.       Left            =   240
  54.       Top             =   1800
  55.       _ExtentX        =   847
  56.       _ExtentY        =   847
  57.       _Version        =   393216
  58.    End
  59.    Begin MSComctlLib.Slider Slider1 
  60.       Height          =   375
  61.       Left            =   0
  62.       TabIndex        =   10
  63.       Top             =   1080
  64.       Width           =   11055
  65.       _ExtentX        =   19500
  66.       _ExtentY        =   661
  67.       _Version        =   393216
  68.    End
  69.    Begin VB.CommandButton Command8 
  70.       BackColor       =   &H00FFFFFF&
  71.       Caption         =   "Color"
  72.       BeginProperty Font 
  73.          Name            =   "Arial"
  74.          Size            =   12
  75.          Charset         =   0
  76.          Weight          =   700
  77.          Underline       =   0   'False
  78.          Italic          =   0   'False
  79.          Strikethrough   =   0   'False
  80.       EndProperty
  81.       Height          =   375
  82.       Left            =   1680
  83.       Style           =   1  'Grafisch
  84.       TabIndex        =   9
  85.       Top             =   600
  86.       Width           =   1095
  87.    End
  88.    Begin VB.CommandButton Command7 
  89.       BackColor       =   &H00FFFFFF&
  90.       Caption         =   "Font"
  91.       BeginProperty Font 
  92.          Name            =   "Arial"
  93.          Size            =   12
  94.          Charset         =   0
  95.          Weight          =   700
  96.          Underline       =   0   'False
  97.          Italic          =   0   'False
  98.          Strikethrough   =   0   'False
  99.       EndProperty
  100.       Height          =   375
  101.       Left            =   1680
  102.       Style           =   1  'Grafisch
  103.       TabIndex        =   8
  104.       Top             =   120
  105.       Width           =   1095
  106.    End
  107.    Begin VB.CommandButton Command6 
  108.       Height          =   375
  109.       Left            =   1080
  110.       Picture         =   "Form1.frx":0000
  111.       Style           =   1  'Grafisch
  112.       TabIndex        =   7
  113.       Top             =   600
  114.       Width           =   375
  115.    End
  116.    Begin VB.CommandButton Command5 
  117.       Height          =   375
  118.       Left            =   600
  119.       Picture         =   "Form1.frx":038E
  120.       Style           =   1  'Grafisch
  121.       TabIndex        =   6
  122.       Top             =   120
  123.       Width           =   375
  124.    End
  125.    Begin VB.CommandButton Command4 
  126.       Height          =   375
  127.       Left            =   600
  128.       Picture         =   "Form1.frx":06EA
  129.       Style           =   1  'Grafisch
  130.       TabIndex        =   5
  131.       Top             =   600
  132.       Width           =   375
  133.    End
  134.    Begin VB.CommandButton Command3 
  135.       Height          =   375
  136.       Left            =   120
  137.       Picture         =   "Form1.frx":0A31
  138.       Style           =   1  'Grafisch
  139.       TabIndex        =   4
  140.       Top             =   600
  141.       Width           =   375
  142.    End
  143.    Begin VB.CommandButton Command2 
  144.       Height          =   375
  145.       Left            =   1080
  146.       Picture         =   "Form1.frx":0D38
  147.       Style           =   1  'Grafisch
  148.       TabIndex        =   3
  149.       Top             =   120
  150.       Width           =   375
  151.    End
  152.    Begin VB.CommandButton Command1 
  153.       Height          =   375
  154.       Left            =   120
  155.       Picture         =   "Form1.frx":10F6
  156.       Style           =   1  'Grafisch
  157.       TabIndex        =   2
  158.       Top             =   120
  159.       Width           =   375
  160.    End
  161.    Begin RichTextLib.RichTextBox RichTextBox1 
  162.       Height          =   8655
  163.       Left            =   0
  164.       TabIndex        =   0
  165.       Top             =   1440
  166.       Width           =   11055
  167.       _ExtentX        =   19500
  168.       _ExtentY        =   15266
  169.       _Version        =   393217
  170.       Enabled         =   -1  'True
  171.       ScrollBars      =   2
  172.       TextRTF         =   $"Form1.frx":1449
  173.    End
  174.    Begin MSComctlLib.StatusBar StatusBar1 
  175.       Align           =   2  'Unten ausrichten
  176.       Height          =   300
  177.       Left            =   0
  178.       TabIndex        =   1
  179.       Top             =   10110
  180.       Width           =   10995
  181.       _ExtentX        =   19394
  182.       _ExtentY        =   529
  183.       _Version        =   393216
  184.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  185.          NumPanels       =   3
  186.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  187.             Style           =   5
  188.             TextSave        =   "18:39"
  189.          EndProperty
  190.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  191.             Style           =   6
  192.             TextSave        =   "06.10.99"
  193.          EndProperty
  194.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  195.             Style           =   2
  196.             Enabled         =   0   'False
  197.             TextSave        =   "NUM"
  198.          EndProperty
  199.       EndProperty
  200.    End
  201.    Begin VB.Label Label1 
  202.       BeginProperty Font 
  203.          Name            =   "MS Sans Serif"
  204.          Size            =   12
  205.          Charset         =   0
  206.          Weight          =   700
  207.          Underline       =   0   'False
  208.          Italic          =   0   'False
  209.          Strikethrough   =   0   'False
  210.       EndProperty
  211.       Height          =   855
  212.       Left            =   4680
  213.       TabIndex        =   11
  214.       Top             =   120
  215.       Width           =   6255
  216.    End
  217.    Begin VB.Menu mnufile 
  218.       Caption         =   "File"
  219.       Begin VB.Menu mnunew 
  220.          Caption         =   "New"
  221.       End
  222.       Begin VB.Menu mnuen 
  223.          Caption         =   "Open encrypted File"
  224.       End
  225.       Begin VB.Menu mnuun 
  226.          Caption         =   "Open unencrypted File"
  227.       End
  228.       Begin VB.Menu mnusave1 
  229.          Caption         =   "Save and encrypt"
  230.       End
  231.       Begin VB.Menu mnuwithout 
  232.          Caption         =   "Save without encrypting"
  233.       End
  234.       Begin VB.Menu mnuprint 
  235.          Caption         =   "Print"
  236.          Shortcut        =   ^P
  237.       End
  238.       Begin VB.Menu mnuexit 
  239.          Caption         =   "Exit"
  240.       End
  241.    End
  242.    Begin VB.Menu mnuedit 
  243.       Caption         =   "Edit"
  244.       Begin VB.Menu mnucopy 
  245.          Caption         =   "Copy"
  246.          Shortcut        =   ^C
  247.       End
  248.       Begin VB.Menu mnucut 
  249.          Caption         =   "Cut"
  250.          Shortcut        =   ^X
  251.       End
  252.       Begin VB.Menu mnupaste 
  253.          Caption         =   "